home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / egascr2.arc / FONT2DB.SCR < prev    next >
Encoding:
Text File  |  1986-08-05  |  698 b   |  37 lines
  1. N FONT2DB.COM
  2. A 100
  3. MOV    BH,02    ; 03 for 8x8 Font!
  4. MOV    AX,1130
  5. INT    10    ; ES:BP points to font
  6. MOV    CX,0100 ; Number of characters
  7. MOV    BH,0E    ; 08 for 8x8 Font!
  8. ES:    
  9. MOV    DH,[BP+00]    ; Get Byte
  10. INC    BP        ; Point to next
  11. MOV    BL,08        ; 8 bits
  12. MOV    DI,013C        ; Destination
  13. MOV    BYTE PTR [DI],00; Zero it out
  14. RCL    DH,1        ; Get the bit
  15. ADC    BYTE PTR [DI],30; Put in 0 or 1
  16. INC    DI        ; Next bit
  17. DEC    BL        ; Bit counter
  18. JNZ    0116        ; Loop around
  19. MOV    DX,0139        ; Point to output
  20. MOV    AH,09        ; And print it
  21. INT    21
  22. DEC    BH    ; Bytes per character
  23. JNZ    010C    ; Loop around
  24. MOV    DX,0145    ; Print out return
  25. MOV    AH,09
  26. INT    21
  27. LOOP    010A    ; Get next character
  28. INT    20
  29. DB    "DB 01234567b",0D,0A,"$"
  30.  
  31. R CX
  32. 48
  33. W
  34. Q
  35.  
  36.  
  37.